#!c:\perl\bin\perl.exe
# ^^^ this must be the first line of the script! ^^^
# start code

use Image::Magick;

my $logo;

$logo = Image::Magick->new();
$x = $logo->Read('logo:');
warn"$x" if "$x";

$x = $logo->Write('D:\travaso.now\dammela2\temp\imageprocessing\logo.png');
warn "$x" if "$x";

